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From the Editors 


We are currently in the middle of a drought. We need 
contributions to make this Newsletter work. With the upcoming 
Symposium (which will have happened by the time this is read), we 
are hoping for a rush of material from the RSX community - from 
both users and Digital. Some ideas for contributions are: 
portions of trip reports which most of you will write, product 
demonstrations, an interesting idea raised during informal 
gatherings, etc... 

If each member of the RSX Community contributed to the 
Multitasker once every ten years, we would have to multiply our 
page count many times. Please, don't be stingy. Share what you 
know with others. 

Send submissions to: 


Dominic DiNollo 
Loral Electronic Systems 
Engineering Computer Center 
Ridge Hill 

Yonkers, New York 10710 
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14 South 1 PPG Place 
30 April 1984 


Dear Multi-Tasker Editor: 


This submission falls under the heading "programming hints and 
kinks": I have two indirect command file coding techniques that I'd 

like to pass on to those who haven't discovered them yet. 

1. Parameterizing Indirect Command File Environmental Dependencies 

I've found it helpful to "parameterize" all command file environmental 
dependencies near the head of my command file, letting string variables 
function like assembler-language equates. That way, I can get at the "magic 
constants" quickly, instead of rooting through command files when, say, 
trying to cannibalize a command file for a different application. Items 
that I parameterize include - 

o ...AT. logical unit numbers 

o file names 

o uics 

o device names 

o ...MAC switches 


II. Indirect Command File Switch Parameters 

One method for adding user-accessible switch-processing capability to 
indirect command files is to treat the initial command file parameter as 
a string of one-character-long switch specifications if the parameter is 
preceded by a plus sign ( ,f + f! ), adjusting subsequent parameter evaluation 
accordingly. One possible implementation of this paradigm: 


.SETS 

PARM01 

PI 

! initially, assume 

the switch 

.SETS 

PARM02 

P2 

! string is absent 

. SETF 

ASWIT 


! initially, assume 

that 

. SETF 

BSWIT 


! no switches are 

active 


.; test for initial switch string; absent if leading char 
.; of the first parameter isn't a "+" 

.TEST PI "+" ! test for switch indicator 

.IF <STRLEN> <> 1 .GOTO PRMDON 
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SETS PARM01 P2 
SETS PARM02 P3 


! PI is a switch string; 

! re-evaluate parameters 


.TEST PI "A" ! "A" switch selected? 

.IF <STRLEN> <> 0 .SETT ASWIT ! yes; set flag 


.PRMDON: 

I try to provide the following switches, where appropriate, for my task-building 
command files - 

A(uto) - reassemble all program objects automatically, 
then proceed directly to taskbuild 
(default: user queried before each re-assembly 
or re-compilation) 

D(ebug) - include ODT in the task object 

L(ist) - produce listings with assemblies/compilations 

T(ask) - assemble no programs; proceed directly to 

taskbuild (supersedes A(uto) mode) 


Respectfully, 

Phillip PteMer 

systems analyst 
PPG Industries 
Glass Engineering 
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14 South 1 PPG Place 
30 April 1984 


Dear Multi-Tasker Editor: 


The Fox 2/30 is a PDP-11/10-based process control minicomputer 
with limited program development capabilities, i.e.: 

single directory 

numbered files (file "names" typically range from 1 to 1024) 
single file backup via paper tape 
PAL-1lR-like assembler 

older, character-oriented editor (early TECO?) 
an unsafe assembly language debugger (crashes possible) 
no command language processor 

PPG has developed software for supporting Fox 2/30 development under 
RSX11M which it wishes to make available through the user-community on 
an unsupported basis: 

bi-directional text transfer between RSX11M and the Fox 2/30 

assumes the full duplex driver and a Fox programmer terminal 
requires no file storage on the Fox 2/30 

includes assembler and FORTRAN language comment strippers 

Fox 2/30 simulation environment running under RSX11M 

simulates the following Fox system calls - 
assembler and FORTRAN file i/o 
program request 
register save/restore 
time of day (partial) 
simulates the following Fox utilities - 
the file creation utility 
the Fox program scheduling utility 

DEC-resident Fox 2/30 procedure-driving utilities and command files 

procedure-driving utilities (all command-line driven) - 
halt currently running program 
assemble Fox program 
compile Fox FORTRAN program 
catalogue Fox object module in library 


4 



create, delete, rename, truncate Fox files 
give Fox files "permanent" status 
repack the Fox drum 

procedure-driving command files (all parameter-driven) - 
build a Fox object library from RSX11M sources 
link Fox object modules 
load Fox linker output 

"General purpose" Fox 2/30 subroutine library 

sensible reworking of many Fox 2/30 system calls 
enhanced Fox 2/30 file i/o, string formatting capability 

Some of the software in this package may be useful for other RSX11M 
applications, i.e. - 

an underlying library of assembly language routines for - 
file i/o 

command line processing 

error message handling 

emit status directive processing 

i/o via the full duplex terminal driver 

a channel test utility, which - 

reads parameters from a command-line-specified input file - 
a string 

a tty number (full-duplex TT driver assumed) 
a timeout parameter 
an echoback (char) count 
writes the string to the specified tty 

captures echoback, subject to timeout/char count restraints 
stores echoback in a command-line-specified output file 
provides special syntax non-printing characters 
comes in two versions, for seven- or eight-bit echoback 
indirect command file provided for send/receive support 

the text transfer programs, which - 

being well-partitioned, could be reworked for other systems 

I would like to make this software available to other Fox 2/30 users, 
but there is no Fox 2/30 user's group. I do not want to distribute this 
software through the symposia tapes, for two reasons — 

most of the Fox-related work might not interest the RSX community 

my software cataloguing system conflicts with standard DECUS 
library conventions (see previous letter) 
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and therefore wish to offer the programs through the Multi-Tasker 



systems analyst 
PPG Industries 
Glass Engineering 
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Library Updates 

new 

11-SP-H5 

Symposium Tape From The RSX-11 SIG, Spring 1983, St. Louis 
Version: Spring 1983 

Author: Various 

Submitted By: James K. Neeland, Hughes Research Labs, Malibu, CA 

Operating System: IAS, RSX-11M, RSX-11M-PLUS 

Source Language: FORTRAN IV, MACRO-11, TECO, DCL 

Other Software Required: In most cases the software in this 
package is self-contained. Occasionally it references software on 
a prior RSX SIG tape. 

This RSX SIG Tape contains approximately HP),000 blocks in two 
backup sets, of which the 2nd is a 22,000 block collection of 
printer pictures. The first backup set contains nearly 2000 
files, including the following: new versions of RUNOFF, PORTACALC, 
multi-file virtual disk and memory disk drivers, CCL, SRC, and the 
TED editor. Also, there is: a device-independent graphics package 
with support for several terminals and plotters; a 
FORTRAN-callable FFT subroutine; a tutorial on RSX; a task image 
zapper; an appointment calendar scheduler; help files for DECUS 
utilities; Semaphores support for RSX11-M,M+; updated utilities to 
undelete files or reincarnate files with bad file headers. There 
are new versions of some video terminal games, and some video 
movies. There is a multi-column lister, a tutorial on EDT 
initializer files, a MACRO prefix file for 8080/8085 assemblies 
using the MACRO assembler, etc., etc. 

No guarantees are made as to the completeness, usability, or 
quality of the programs on the tape. The material has not been 
checked or reviewed, and documentation may or may not be included. 

Restrictions: Generally full sources are supplied. However, some 

programs may not have full sources. 

Documentation and/or sources may or may not be included on the 
magnetic media. 

Media (Service Charge Code): 2400' Magtape (PS) 

Format: BRU V3.2 

Keywords: Symposium Tape - 

RSX-11, PORTACALC 
Operating System Index: 

RSX-11/IAS 

August 20, 1984 
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HEX: Hex File Editor 


revision 

11-480 


Version: August 1984 

Author: Kevin Angley, Telex Computer Products, Raleigh, NC 

Revising Author: Scott E. Smith, Telex Computer Products, 

Raleigh, NC 

Operating System: RSX-11M V4.1, VAX/VMS V3.5 in compatibility 

mode. 

Source Language: MACRO-11 

The HEX utility is designed to manipulate ASCII hex formatted 
files as output by cross-assemblers and linkers for 
microprocessors (Z80, 8085, 58000, etc.). HEX supports all of the 

popular ASCII hex formats: INTEL, TEKHEX, Extended TEKHEX, 
Motorola, and MOSTEK. The principle components of the HEX utility 

is a 32K byte virtual memory area that allows the user to 
manipulate code in memory as if it were in the target machine. 

Note that the 32K byte virtual memory can be extended to cover the 
entire 2**32 address range via the OFFSET command. Hex will 

handle 15, 24, or 32-bit addresses. Operations that can be 
performed on a hex file in virtual memory: 

COMPARE - compare specified addresses to another hex file. 
COMPLEMENT - perform a Logical (l's) complement on a range. 

COPY - copy from one area to another. 

CRC - compute the standard cyclic redundancy check. 

DISPLAY - display to the screen or to a listing file. 

EDIT - examine and optionally replace values. 

FILL - fill a range with a value. 

FORMAT - establish the ASCII hex format. 

IDENT - display the HEX program identification. 

INIT - resets the utility to initial conditions. 

MOVE - move byte or word values. 

NEGATE - perform the arithmetic (2's) complement. 

OFFSET - establish offset. 

READ - read a hex file into virtual memory. 

SEARCH - search the specified range for a byte or word value. 

SUM - compute a 15-bit byte-wise summation. 

TRANSFER - set the transfer address. 

WRITE - write a range of virtual memory to a hex file. 

Changes and Improvements: Many new commands, expanded 
functionality of old commands, supports many more hex formats. 

Documentation on magnetic media. 

Media (Service Charge Code): 500' Magtape (MA) 

Format: BRU V4.1 

Keywords: Microprocessor, 

File Management, RSX-11 - 
Utilities 

8 Operating System Index: 

RSX-11/IAS 



FORTRAN IV-PLUS and FORTRAN-77 On-Line Debugger 
Version: June 1984 


new 

11—75*5 


Revising Author: Gabor D. Miklos, Memorial Sloan-Kettering Cancer 

Center, New York, NY 

Operating System: RSX-11M V3.2 

Source Language: MACRO-11 

Memory Required: 1090 KW 

This program is a revision of the FODT On-Line Debugging Tool, 
originally written by David Beckwith (DECUS Program Number 

11-279A). By using this modified dubugger, users can debug any 
application program written in FORTRAN IV-PLUS or FORTRAN-77 under 
RSX-11M, provided the task is NOT overlayed. 

A detailed document can be found in the file 'FODT.DOC", which is 
on the media. 

Note: Release notes are distributed with each medium. 

Restrictions: At present program cannot debug overlayed tasks. 

It is difficult to reliably mark the beginning and especially the 
end of the executable code part of the loaded segment. 

Documentation on magnetic media. 

Media (Service Charge Code): DECtape (HA), Floppy Diskette (KA), 

590' Magtape (MA) 

Format: DOS-11 

Keywords: Debugging 

Operating System Index: 

RSX-11/IAS 

September 3, 1984 
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new 

ll-SP-67 

Symposium Tape from the RSX SIG, Spring 1984, Cincinnati 
Version: Spring 1984 

Author: Various 

Submitted By: Glenn C. Everhart, Ph.D. 

Operating System: IAS, RSX-11D, RSX-11M, RSX-11M-PLUS, VAX/VMS, 

P/OS 


Source Language: BASIC-11, VAX-11 BASIC, BASIC-PLUS, C, FORTRAN 
IV, FORTRAN IV-PLUS, FORTRAN 77, VAX-11 FORTRAN, MACRO-11, 
MACRO-32, PASCAL 

This is the RSX Spring 1984 (Cincinnati) symposium tape. For the 
convenience of VMS users it is available in either BRU format or 

VMS Backup format at 1600 BPI. The DECUS part no. for the VMS 
tape is V-SP-27. 

The tape contains approximately 60,000 blocks of code, including 
the following highlights: 

Michael Reese BASIC, ATT, DEV, Force command line, DOS cross 
supports, virtual disks (memory and disk resident), spreadsheet, 
calendar. Runoff from Rice University, spelling checker, several 
communications utilities including updates and extensions of XMITR 
and DUPLEX, graphics, full Kermit distribution (as of 7/15/1984), 
BUG screen debugger for IAS, LBL Tools toys (LEX, YACC, LISP, 

RATFOR, AR, etc.), DECUS C for PRO350, phone list manager, mailing 

list manager, sorter, HEX file mgr. Task Image Zap, and numerous 
PRO350 loadable task images and runtimes including Swedish PASCAL, 

BASIC, DTC, AnalytiCalc (spreadsheet), DDT (sources for symbolic 
debugger), TECO, SRD, COPY, LISTRSX, and much more. Since many of 
these programs are as useful on VAX as on RSX, they are provided. 

No guarantees are made as to the completeness, usability, or 
quality of the programs on the tape. The material has not been 
checked or reviewed and documentation may or may not be included. 

Note: Most programs include complete sources; a few do not. 

Complete sources not included. Documentation on magnetic media. 

Media (Service Charge Code): 2400' Magtape (PS) 

Format: BRU V3.2 (1600 bpi ONLY) 

Keywords: Symposia Tapes - 

RSX-11 

Operating System Index: 

RSX-11/IAS, VAX/VMS, P/OS 

September 17, 1984 
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SOS: A Program for Saving Deleted Files 
Version: V2.1, July 1984 


revision 

11-507 


Author: James F. Carter, UCLA, Tokamak Fusion Laboratory, 

Los Angeles, CA 

Operating System: RSX-11M V4.0 

Source Language: MACRO-11 
Memory Required: 8KW 

Other Software Required: Fll ACP Works only on FILES-11 Volumes. 

When you accidentally delete a file on a FILES-11 volume, the data 
and file header are still intact, until re-used for another file. 

You can recover the data using SOS. It works much like PIP, 
copying the data to a new file on another unit. You can use 

wildcards in the input file specification, and you can specify a 
file owner other than yourself. If you omit the version you get 

the latest version of the file; version -1 gives you the earliest 
version. SOS can also read non-deleted files. SOS checks file 
protection on the input file and output directory. 

Restrictions: The program is supposed to work on multi-header 

files, but this feature could not be tested. 

Documentation on magnetic media. 

Media (Service Charge Code): Write-Up (AA), Floppy Diskette (KA) , 

500' Magtape (MA) 

Format: FILES-11 


Keywords: File Management, 

RSX-11 - Utilities 
Operating System Index: 

RSX-11/IAS 

September 17, 1984 
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revision 

11-719 


PLANS: A Program to Plot Hardcopy on the Versatec Printer 
Version: V2.0, June 1984 

Author: Thomas E. Chenault, U.S. Government, White Sands Missle 

Range, NM 

Operating System: RSX-11M V3.2 - V4.1 
Source Language: FORTRAN 77 
Memory Required: 32KB 

Other Software Required: Versatec's Versaplot Library 

Special Hardware Required: Versatec Printer-Plotter 

The purpose of the program Plans is to produce a hardcopy on the 
Versatec Printer of plots, specifically, design drawings, (more 
detailed documentation is in PLANS.DOC) 

PLANS utilizes user supplied data files, then converts the easily 
organized data files into complicated graphics output, using 
Versatec's Versaplot Graphics Library. Each data file 

plot is used as a tranparent overlay. The final plot consists of 
those plot overlays chosen by the user. 

PLANS offers easily organized and coordinated user controls of: 

1. MOVE(s) and DRAW(s) to all position(s). 

2. Mixtures of multi-plotting(s), multi-rotation(s), 
multi-sizes with multi-line width(s) of 

1. 14 predefined symbols, 

2. 113 predefined character codes, 

3. S predefined fill patterns, 

4. All regular multi-sided figures, 

5. 871 user defined figures, 

S. 1000 labels. 

Since dialog is enabled between the user and Versaplot, the scale 
of the whole drawing, and 27 other variables can be controlled. 

Changes and Improvements: Correction to Translation and Rotation 
routine, change to fill routine, addition of ability to save 
processed files. Valid on 5 Operating Systems. 

Restrictions: On a VAX, the installer would need to eliminate the 

overlays used in task building. Sources to Versatec's Versaplot 
Library are not included. 

Associated Documentation: Versatec's Versaplot Operating Manual. 
Complete sources not included. Documentation on magnetic media. 
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Media (Service Charge Code): Floppy Diskette (KA), 

*>00' Magtape (MA) 


Format: FILES-11 


Keywords: Graphics, Plotting, 

Conversion 

Operating System Index: 

RSX-11/IAS 

September 17, 1984 
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Kermit-11 


revision 

11-731 


Version: V2.20, August 1984 

Author: Brian Nelson 

Submitted By: Rebecca Dent, Change Software Inc., Toledo, OH 

Operating System: RSTS/E V7.2 or later, RSX-11M V4.0 or later, 

RSX-11M-PLUS V2.1, RT-11 V4.0 or later 

Source Language: MACRO-11 
Memory Required: 20KW 

Kermit is a protocal originally developed at Columbia University 
which has been used to implement error free packet file transfer 
and communications between computer systems, both mainframe to 

mainframe and micro to mainframe. 

This Kermit-11 was developed by the author for RSTS/E, 

RSX-11M-PLUS, RSX-11M and RT-11. 

Kermit-11 will run on RSX-11M version 4.0 and RSTS/E version 7.2 
as long as the task was built without using RMSRES. To be able to 
build Kermit on RSTS/E version 7.2 of RSX-11 version 4.0 you will 

have to get RMSLIB.OLB and MAC.TSK from RSX-11 V4.1 or RSTS/E 

V8.0. The need for version 2 of RMSLIB is due to the use of 
$SEARCH, SPARSE, $RENAME and SDELETE. The need for the newest 

MAC.TSK is due to the use of new directives such as .SAVE, 

.RESTORE and .INCLUDE /FILENAME/. 

Note: For RSTS/E system users please note that you do not have to 

create RMS files as output. You can instead either type 
set record-format stream, modify the default in K11RMS, MAC 
or put the set command in one of the following files: 

SY:KERMIT.INI 
LB:[1,21KERMIT.INI 
SY:r1,21KERMIT.INI 
KERMIT:KERMIT.INI 


Restrictions: Minimum System requirements to ASSEMBLE and LINK 

KERMIT: 

RSTS/E V8.0 or later, with multiple private delimiters and RMS V2 
RSX-11M V4.1 or later, with full duplex terminal driver and RMS V2 
RSX-11M-PLUS V2.1 or later, with full duplex terminal driver and 
RMS V2. RT V5 will not run under RT-11 SJ. Needs FB or XM. 
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Minimum system requirements to RUM KERMIT: 

RSTS/E V7.2 or later, with multiple private delimiters 

RSX-11M V4.0 or later, with full duplex terminal driver 
RSX-11M-PLUS V2.0 or later, with full duplex terminal driver 
RT-11 V4. 

Documentation on magnetic media. 

Media (Service Charge Code): 500' Magtape (MA) 

Format: DOS-11 

Keywords: RSX-11 - Utilities, 

RSTS/E - Utilities, File 
Transfer, RT-11 - Utilities 
Operating System Index: 

RSTS/E, RSX-11/IAS, RT-11 

September 17, 1984 
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PARSE/RSX: A Flexible FORTRAN 77 Filespec Parser 
Version: V3.0X, May 1984 


new 

11-744 


Author: Ralston W. Barnard, Sandia National Laboratories, 

Albuquerque, NM 

Operating System: RSX-11M 

Source Language: FORTRAN 77 

Memory Required: 770 (decimal) Words 

PARSE is a FORTRAN-77 subroutine which simplifies the 

specification of files used in a program, and reduces operator 

input. When used with a FORTRAN applications program, PARSE 
minimizes the amount of typing necessary to specify files by 

providing default values whenever they are not supplied at 
run-time. Defaults may be provided for devices, UIC's, and 
extensions. Version numbers are also accommodated. Once a "root" 
filespec has been created by PARSE, further filespecs can be 
created without any user action by means of successive calls to 
PARSE. 

The code will currently support RSX UIC's or VMS directory manes 
of up to seven characters. It could be easily modified to handle 
VMS directory specifications of any length. Furthermore, the code 
could be extended to accept DECnet nodes or VAX device 
specifications. 

The program TSTPAR demonstrates the use of PARSE, and also is a 
tutorial on the proper use of the subroutine. This version of 

PARSE has been written to take advantage of FORTRAN-77 language 
features and constructs. 

Documentation on magnetic media. 

Media (Service Charge Code): Floppy Diskette (KA), 

600' Magtape (MA) 

Format: FILES-11 


Keywords: Tools - Application 

Development, RSX-11 - Utilities 
Operating System Index: 

RSX-11/IAS 

Spetember 17, 1984 
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new 

11-745 

Spelling Checker with Dictionary Maintenance Utility 
Version: V3, January 1984 

Author: Alan Dunwell, University of Colorado, Boulder, CO 

Submitted By: Judah Levine, University of Colorado, Boulder, CO 
Operating System: RSX-11M V4.1 

Source Language: FORTRAN 77, MACRO-11 
Memory Required: 31KW 

SP3 is a general purpose spelling checker program for text files. 
Words in the text file are compared to words in the resident 
Dictionary file. Failure to find a match in the Dictionary 
generates an operator prompt to verify the word in question. 
Correctly spelled words are saved and are merged into the 
Dictionary rile when the entire list has been examined. 

Misspelled words are saved in file ERRLST. DAT. Abbreviations or 
other character strings may be skipped or inserted in the 
dictionary at the user's discretion. 

ED3 is a Dictionary Maintenance program which allows direct access 
to the Dictionary. The operator is allowed the option to READ, 
ADD, or DELETE any word in the Dictionary. The programs are 

supplied with a dictionary containing about 4000 words. 
Documentation on magnetic media. 

Media (Service Charge Code): Floppy Diskette (KB), 

600' Magtape (MA) 

Format: FILES-11 


Keywords: Dictionary, Spell 

Operating System Index: 

RSX-11/IAS 

September 17, 1984 
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new 

11-747 

Dictionary with Phonetics 
Version: April 1984 

Author: Seymour Shlien, Department of Communications, Ottawa, 

Ontario, Canada 

Submitted By: Eric Teutsch, POWERSOFT, Ottawa, Ontario, Canada 

Operating System: RSX-11M V4.1B 
Source Language: FORTRAN 77 

Memory Required: 15712 Words 

This tape contains a dictionary of over 7009 words with regular 
and phonetic spelling, as well as grammatical meaning (noun, 
adverb, etc.). In addition to the dictionary are a number of 
utilities that manipulate/use this dictionary: MODFIX to modify 
the dictionary interactively (contains code to listen to phonetics 
through the TeleSensory Systems PROSE 2000 speech synthesizer). 

BLDFIX to build the dictionary. 

BLDDAT to unbuild it (convert from direct-access to sequential 
file) . 

BIGLST to create a spoolable list file. 

STRMAT to find words in the dictionary. 

Note: The phonetic entries may be sent to a speech synthesizer by 

'Speech-Plus, Inc.'. The interfacing to this uses 010's. 

Restrictions: Database contains singular nouns, not plural, 

present tense verbs, etc. 

Documentation on magnetic media. 

Media (Service Charge Code): Floppy Diskette (KA) Format: RT-11, 

500' Magtape (MA) Format: DOS-11 

Keywords: Speech, Dictionary 

Operating System Index: 

RSX-11/IAS 

September 17, 1984 
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TEM: A Terminal Emulator for RSX-11 


new 

11-750 


Version: May 1984 

Author: Thomas R. Wyant, III, DuPont de Nemours 

Operating System: RSX-11M-PLUS V2.0 or later 
Source Language: MACRO-11 

Memory Required: 13KW 

Special Hardware Required: Dial-out Modem 

TEM provides "dumb" terminal emulation over a full duplex TT: 
line. It allows the user to "become" a terminal on a remote 
system, and to do ASCII file transfer between systems. TEM has 
been used to communicate with TSX, VMS, and TOPS-20 systems, as 

well as non-DEC equipment. It requires no software on the remote 
system (and therefore has no error checking). 

In addition to the basic functionality, TEM can automatically 
issue canned commands to smart modems at the beginning and end of 
a session. The user can also select from the following features: 

1. Local Echo. 

2. Automatic line feed on carriage return. 

3. Translation of inbound control characters to ASCII 
abbreviations. 

4. Passthru of control/s, control/q, control/o and conrol/x to 
the remote system. 

5. User selectable attention and end-of-file characters. 

5. Redefinition of any desired input character to any other. 

7. Specifiable delay and prompt character for file transfer. 

TEM requires at least RSX-11M-PLUS V2.0. RSX-11M Vd.0 with the 
full-duplex TT: driver, get/set multiple characteristics, and 
unsolicited input AST's should work, but has not been tested. TEM 
can be initiated from a terminal on the TT:. HT:, or VT:, driver, 
though there are restrictions on its use from a virtual terminal. 
It can communicate with any device on the TT:, HT:, or NL: driver. 

Documentation on magnetic media. 

Media (Service Charge Code): Floppy Diskette (KA) Format: RT-11, 

500^ Magtape (MA) Format: DOS-11 

Keywords: Emulators, RSX-11 - 

Utilities, Data Communications 
Operating System Index: 

RSX-11/IAS 

September 17, 1984 
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More to Manipulating the FORTRAN environment 


Pavel Muselik 
DopravoproJekt Brno 
65830 B rno y Czechoslovakia 


In The Multitasker from August 1979 there was a Question in Q&A 
Session* Can one write a macro subroutine to return the number of 
arguments to the calling subroutine? The answer wasi In general t 
no* In the November 1979 issue was printed a contribution of Bill 
Newcumr who wrote such subroutine* Other solution of the problem 
was in The Multitasker from December 1983. Both the subroutines 
were written only for FORTRAN IV PLUS, 

Our program packages are writen primarily in FORTRAN* To determine 
the number and status of arguments passed to a subroutine we use a 
subroutine ARGMNT, The versions of the ARGMNT for FORTRAN IV and 
for FORTRAN IV PLUS (FORTRAN 77) follow. Due to the subroutine 
ARGMNT our packages of subroutines are relatively smallr flexible 
and easy to use* 


FORTRAN IV PLUS (FORTRAN 77) versioni 


.TITLE ARGMNT 

ySubroutine ARGMNT returns number and feature of arguments in call 
5of a subroutine SUBR* ARGMNT should be called immediately after 
fentering subroutine SUBR* 

A 

y 

y Author * Pavel Muselik 


A 

7 

yCall 


A 

V 

A 

y 

y 

A 

y 

A 

y 

A 

y 

A 

y 

A 

y 

A 

y 


CALL 

CALL 

CALL 


NA 

IA 

N 


A 

y 

y Addresses J 


ARGMNT(NA) returns the number of actual args 

ARGMNT(NAyIA) returns NA and adrs of actual args 

ARGMNT(NAyIAyN) returns NA and adrs of all possible 

actual args (even if missing at the 
end of the list) 

number of args in the call of the subroutine SUBR 
integer array for addresses of the args of the SUBR 
IA should have at least NA elements (ARGMNT(NArIA)) 
o r N el emerits (ARGMNT (NA y IA y N ) ) . 

Number of formal arguments of the SUBR (maximum 
possible number of actual arguments). 

IA(I),EQ*-1 Ith ars is missing (CALL SUBR(Ay y yD) ) 
IA(I)*NE*-1 Ith ars is used (CALL SUBR(AyByCyD) ) 


y 

t Tested on FORTRAN IV PLUS compiler F4P V02~5i 
yTested on FORTRAN 77 compiler F77 V'1,0-1 

* IDENT /JUL83/ 

.PSECT t&CODEl 

ARGMNT i J MOV 2(SP)yRl ysave pointer on list of SUBR 


w r **» 


20 





CMPB 

0R5 y #3 


BNE 

C 


MOU 

G6(R5)yR2 


MOV 

4(R5)y R3 

DJ 

MOV 

tl77777y(R3 


DEC 

R2 


BNE 

D 

c: 

MOV 

(Ri H-yR2 


MOV 

R2y 02(R5) 


BEO 

E 


CMPB 

0R5 y #1 


BEO 

E 


MOV 

4(R5)y R3 

L.* 

MOV 

(Rl)fy(R3)+ 


DEC 

R2 


BNE 

L 

Ei 

RTS 

.END 

PC 

FORTRAN 

IV vers 

ion l 


.TITLE 

ARGMNT 


Jh3S ARGMNT three srst? 

?NE ~ no f x11 e r r 3 y IA 
r dimension N of array IA 
yaddress of array IA 
yfill array by "not used” 
ynext element 
ylast? HE ~ no 
y* arbs of SUBR 
y into HA 
yany orbs? EQ ~ no 
y f 1 n d o i "i 1 y H A ? 
yEO ~ yesy nothinb else 
yfxnd adrs of arbs * Adr of 
Jadr of arb into IA 
y n e x t a r b u m e n t 
ylast? HE ~ no 
yyesy finished 


array IA 


ySubroutine ARGMNT returns number and feature of arbuments in call 
?of a subroutine SUBR. ARGMNT should be called immediately after 
5enterinb subroutine SUBR. 


* 

y 

yAuthori Pavel Muselik 


y 

yCall CALL ARGMNT(HA) 

y CALL ARGMNT(NAflA) 

y CALL ARGMNT(NAylAyH) 


returns the number of actual arbs 
returns HA and adrs of actual arbs 
r et u rns HA and adrs of a11 ro s sib1e 
actual arbs (even if missinb at the 
end of the list) 


y 

y 

A 

y 

y 

A 

y 

y 

A 

y 


NA 
IA 

N 


5 Addressesi 


y 

A 

y 


number of arbs in the call of the subroutine SUBR 
inteber array for addresses of the arbs of the SUBR 
IA should have at least NA elements (ARGMNT(HAyIA)) 
or N elements (ARGMNT(HAyIAyN))* 

Number of formal arbs of the SUBR (max possible 
number of actual arbuments). 

1A(I)♦EG *-I Ith arb is missinb (CALL SUBR(AyyyD) > 
IA(I>♦HE * -1 11h a rb is used (CALL SUBR(AyByCyD) ) 


yTested on FOTRAN IV compiler FOR V02.2-1 


ARGMNT 


.IDENT 

/JUL83/ 

.PSECT 

*C0DE 

MOV 

SP y R4 

CMPB 

0R5y #3 

BNE 

2$ 

TST 

(R4) + 

MOV 

06(R5)y R2 

MOV 

4(R5)y R3 


ySave SF : ' 

yHas ARGMNT three arbs? 
yNE~less than three 
ythree. Consider third arb on stack 
yDimension N of IA array 
yaddress of IA array 
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1$I 

MOV 

* 177777 r < R3 ) + y IA ( I ) » " not used ” 


DEC 

R2 

y n e y, t e 1 o iti e n t o f IA 


BNE 

1$ 

y 1 3 s t ? NE-rio 

2 $; 

CMPB 

0R5 1 f1 

?has ARGMNT onIs one ara? 


BEQ 

5$ 

y E Q r:: * y e s y o n 1 a N A 


TST 

(R4) + 

y a t 1o a st 2. Conside r 2nd on 

s$: 

MOV 

32(R4)y R1 

i ♦ orss of SUBR 


MOV 

R1 !• 02 (R5) 

Jinto NA 


BEQ 

E 

y n o a i' d s ? E Q ~ n o r n o a d d r e s s e s 


CMPB 

0R5y*l 

y NA only? 


BEQ 

E 

? E Q y o s v n o t h i n a e 1 s e 


MOV 

4(R5 ) y R3 

y a d d r e ss o f a r r a y IA 

10$ t 

MOV 

3 4 (R 4 ) y < R 3 ) + r a d ores s o f S U B R a r d :i. n t o IA ( 


TST 

( R4 ) + 

y p o :i. n t e r o r* ri e j* t a r a 


DEC 

R1 

? decrement counter of oros 


BNE 

10$ 

? 1 a s t a d d r e s s m o v e d ? N E ™ n o 

El 

RTS 
* END 

PC 

y y e s y 1 a s t r F i n i s h e d 

c rest 

• r o d r a m f o r A R G M N T 



CALL 

END 

SUBR(PIy P2 y y y 

P5 y P6) 


SUBROUTINE SUBR ( PI 

y P 2 y P 3 y P 4 y P 5 y P 6 t P 7 y P 8 t P 9 y P 0 > 


DIMENSION IA ( 10) 

! iti a y 10 a d d r e s s e s 


CALL 

ARGMNT < NA ) 



WRITE(5?10) NA 



CALL 

ARGMNT(NAylA) 



WRITE<5y10) NA yIA 



CALL 

ARGMNT(NAylAy 

10 > ! iti a a 10 a e t u a1 a r a s 


WRITE (5? 10) NA ;• IA 


10 

FORMAT <1116) 



END 




Output 

from F77 prodram* 





6 

6 

1214 1218 -1 

.... | j SSO j 

«!• •*• A»» A«« A** <!• Am >•/ 

0 

n 

0 

6 

1214 1218 -1 

.... 1 1 n n n 1 n n /. 

-I- •!« A.. Am Am A A.. A— V./ 

-1 

--i 

.... 1 


Output 

f rom 

FOR prodram 







6 

6 

7336 

7340 -1 

-1 

7 "X A A 

.• w 1 1 

73*18 

0 

0 

0 

6 

7336 

73,40 -1 

-1 

7 ,) 

/ \.. 4 t 1 

7348 

-i 

-I • 

-1 


Sometimes it is possible to use stendsrd RSX sostem subroutine 
(3 E T A D R v B u t G E T A D R e a n n o t d e t e r m i n e t h e n u m b e r o f a c t u a 1 a r a u in o n t s 


i n c a 11 a n d a d d r e s s e s 
1 a s t a c t u a 1 a r a u sri e n t) 


o f a n y a r a u in o n t b o y o n d t h e 1 i s t 

a r e n o t d e f i n e d (a t 1 e a s t i n F 7 7 


<aftor 
r* rod ram 


the 
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C Test program for GETADR 

CALL SUBR (P 1 x P2 , v x P5 x P6 ) 

END 

SUBROUTINE SUBR < F'l x P2 xP3x P '4 xP5xPAxP7xPSxP9xPO> 
DIMENSION IA<10> !nax 10 addresses 

CALL GETADR < IA x P1 xP2xP3x PAr P5x P6 xP7xPS x P9xPO> 
WRITE(1x10) IA 
10 FORMAT(1016) 

END 


Output from F77 program* 

1216 1220 0 0 1224 1228 2466 2566 0 


Output from FOR program* 

7190 7194 0 0 7199 7202 0 0 0 
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MOVING OR REPLACING A DELEGATE? 

Please notify us immediately to guarantee con¬ 
tinuing receipt of DECUS literature. Allow up to 
six weeks for change to take effect. 

( ) Change of Address 

( ) Delegate Replacement 

DECUS Membership No.: _ 

Name: _ 

Company: _ 

Address: _ 


State/Country: _ 

Zip/Postal Code: _ 

Phone No.*_ 

Mail to: DECUS - Attn: Subscription Service 
249 Northboro Road, (BP02) 

Marlboro, MA 01752 USA 
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